Takingthe radix packagefor a test spin for finacial reporting
library(tidyverse)
library(tidyquant)
library(timetk)
library(plotly)
library(rmarkdown)
FANG <- c("FB", "AMZN", "NFLX", "GOOG") %>%
tq_get(from = "2014-04-01", to = today())
cummulative_tbl <- FANG %>%
mutate(symbol = as_factor(symbol)) %>%
group_by(symbol) %>%
mutate(returns = adjusted - lag(adjusted)) %>%
mutate(returns = replace_na(returns, 0)) %>%
mutate(cummulative_returns = cumsum(returns))
cummulative_tbl %>%
select(symbol, date, adjusted, cummulative_returns) %>%
paged_table()